object Kwgl_SelectKsForm: TKwgl_SelectKsForm
  Left = 523
  Top = 223
  BorderStyle = bsSizeToolWin
  Caption = #32771#29983#36873#25321
  ClientHeight = 274
  ClientWidth = 392
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 392
    Height = 233
    Align = alClient
    Caption = #32771#29983#20449#24687#65306
    TabOrder = 0
    object DBGrid1: TDBGridEh
      Left = 2
      Top = 16
      Width = 388
      Height = 215
      Hint = #21452#20987#26597#30475#35813#32771#29983#35797#21367
      Align = alClient
      DataGrouping.GroupLevels = <>
      DataSource = DataSource1
      Flat = False
      FooterColor = clWindow
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = 'Tahoma'
      FooterFont.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit]
      OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight, dghDialogFind, dghColumnResize, dghColumnMove, dghHotTrack]
      ParentShowHint = False
      RowDetailPanel.Color = clBtnFace
      ShowHint = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = 'Tahoma'
      TitleFont.Style = []
      OnDblClick = DBGrid1DblClick
      Columns = <
        item
          EditButtons = <>
          FieldName = #23398#21495
          Footers = <>
          Width = 65
        end
        item
          EditButtons = <>
          FieldName = #22995#21517
          Footers = <>
          Width = 69
        end
        item
          DisplayFormat = '0.0'
          EditButtons = <>
          FieldName = #25104#32489
          Footers = <>
          Width = 46
        end
        item
          EditButtons = <>
          FieldName = #29677#32423
          Footers = <>
          Width = 263
        end>
      object RowDetailData: TRowDetailPanelControlEh
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 233
    Width = 392
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 35
      Height = 14
      Caption = 'Label1'
    end
    object Button1: TButton
      Left = 208
      Top = 8
      Width = 75
      Height = 25
      Caption = #30830#23450'[&O]'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 304
      Top = 8
      Width = 75
      Height = 25
      Caption = #20851#38381'[&C]'
      TabOrder = 1
      OnClick = Button2Click
    end
  end
  object Update_ClientDataSet: TClientDataSet
    Aggregates = <>
    CommandText = 
      'select top 1 b.'#23398#21495',a.'#22995#21517',b.'#25104#32489',a.'#29677#32423' from '#32771#29983#20449#24687#34920' a inner join '#32771#29983#32771#35797#34920' b' +
      ' on a.'#23398#21495'=b.'#23398#21495
    Params = <>
    ProviderName = 'Update_DataSetProvider'
    RemoteServer = Kwgl_RDataForm.MyConnection
    Left = 138
    Top = 48
    object Update_ClientDataSetStringField: TStringField
      FieldName = #23398#21495
      Size = 15
    end
    object Update_ClientDataSetStringField2: TStringField
      FieldName = #22995#21517
      Size = 10
    end
    object Update_ClientDataSetBCDField: TBCDField
      FieldName = #25104#32489
      DisplayFormat = '0.0'
      Precision = 18
      Size = 1
    end
    object Update_ClientDataSetStringField3: TStringField
      FieldName = #29677#32423
      Size = 50
    end
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = Update_ClientDataSet
    OnDataChange = DataSource1DataChange
    Left = 176
    Top = 48
  end
end
